home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / c / recio202.zip / rputf.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-05  |  2.3 KB  |  70 lines
  1. /*****************************************************************************
  2.    MODULE: rputf.c
  3.   PURPOSE: recio character delimited floating point output functions
  4. COPYRIGHT: (C) 1994 William Pierpoint
  5.  COMPILER: Borland C Version 3.1
  6.        OS: MSDOS Version 6.2
  7.   VERSION: 2.02
  8.   RELEASE: May 5, 1994
  9. *****************************************************************************/
  10.  
  11. #include <float.h>
  12. #include <stdio.h>
  13. #include <stdlib.h>
  14. #include <string.h>
  15.  
  16. #include "recio.h"
  17.  
  18. extern char *dtoa(double d, int dig, char *str);
  19. extern int _rstatus(REC *rp, int mode);
  20. extern int _rputc(REC *rp, int ch);
  21.  
  22. #define rfp(rp)          ((rp)->r_fp)
  23. #define rcol(rp)         ((rp)->r_colno)
  24. #define rfldch(rp)       ((rp)->r_fldch)
  25.  
  26. /****************************************************************************/
  27. static int                   /* return 0 on success; !0 on error            */
  28.     _rputd(                  /* output floating point number to rec stream  */
  29.         REC *rp,             /* pointer to record stream                    */
  30.         int dig,             /* number of significant digits                */
  31.         double num)          /* floating point number                       */
  32. /****************************************************************************/
  33. { 
  34.     int err=EOF;             /* return error (0=no error; !0=error) */
  35.     if (!_rstatus(rp, R_WRITE)) { 
  36.         rfldno(rp)++; 
  37.         /* if not first field, put field separator */
  38.         if (rfldno(rp) > 1) { 
  39.             err = _rputc(rp, rfldch(rp)); 
  40.             if (err) goto done; 
  41.         } 
  42.         dtoa(num, dig, _r_nsbuf); 
  43.         err = fputs(_r_nsbuf, rfp(rp)); 
  44.         if (err==EOF) { 
  45.             rseterr(rp, R_ENOPUT); 
  46.             goto done; 
  47.         } else { 
  48.             rcol(rp) += strlen(_r_nsbuf); 
  49.             err = 0; 
  50.             goto done; 
  51.         } 
  52.     } 
  53. done: 
  54.     return err; 
  55. }
  56.  
  57.  
  58. /****************************************************************************/
  59. /* character delimited floating point output functions                      */
  60. /****************************************************************************/
  61. int rputf(REC *rp, float num)
  62. {
  63.     return _rputd(rp, FLT_DIG, (double) num);
  64. }
  65.  
  66. int rputd(REC *rp, double num)
  67. {
  68.     return _rputd(rp, DBL_DIG, num);
  69. }
  70.